;experiment 9
assume cs:codesg,ds:datasg,ss:stack

datasg segment
	db 'Is this a joke?!'
datasg ends

stack segment
	dw 16 dup(0)
stack ends
codesg segment
start:
	mov ax,datasg
	mov ds,ax
	mov bx,0
	mov si,0
	mov ax,0b800h
	mov es,ax
	sub di,di
	;mov bx,002ah
	mov cx,3
l2:	push cx
	mov cx,16
l:	
	mov al,byte ptr ds:[si]
	mov byte ptr es:[bx+0688h+di],al
	mov byte ptr es:[bx+0689h+di],al
	add bx,2
	inc si
	loop l
	pop cx
	mov bx,0
	mov si,0
	add di,160
	loop l2

	;mov cx,16
; l1:	mov al,byte ptr ds:[si]
	; mov byte ptr es:[bx+0688h+160],al
	; mov byte ptr es:[bx+0689h+160],24h
	; add bx,2
	; inc si
	; loop l1
	; mov bx,0
	; mov si,0
	; mov cx,16
; l2:	mov al,byte ptr ds:[si]
	; mov byte ptr es:[bx+0688h+320],al
	; mov byte ptr es:[bx+0689h+320],17h
	; add bx,2
	; inc si
	; loop l2
	mov ax,4c00h
	int 21h
codesg ends

end start